0 POKE808,234:POKE55,255:POKE56,63:IFPEEK(819)<>245THENSYS64738 1 V=53248:D$="":PRINT"[147]"D$ 2 PRINTCHR$(8)CHR$(142)SPC(7)"[158][198][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163] 3 [153][166]7)" GETRNDRNDGETNEWRNDGETNEWNEWGETNEWRNDGETNEWRNDWAITLOGRNDNEWGETNEWRNDGETNEWRND 4 PRINTSPC(7)" [161][161][161][161][162][162][161][162][146][190][161][187][162][161][162][187][161][161][161][161][187][162] 5 [153][166]7)" WAITLOGLOGLOGLOG LOGNEWNEWWAITLOGLOGNEWWAITLOG LOG LOGNEWWAITLOGNEWNEWWAITLOGLOGRND 6 PRINTSPC(7)"[175][146] S O F T W A R E[158][161] 7 [153][166]7)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW 8 FORI=0TO17:PRINT:FORK=0TO9:NEXTK,I:PRINT" 9 U$[178]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWPOSANDTO TOANDPOSNEW" 10 J$[178]"WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAITTAB(WAITUSRWAITFRENEWPOSANDTO TOANDPOSNEWWAITFREWAITUSRWAITTAB(" 11 [129]I[178]1[164]13:[153]""[166]7)[202](U$,I,13)[202](U$,32[171]I) 12 [153][166]7)[202](J$,I[170]I,26)[202](J$,77[171]I[171]I):[130] 13 U$[178]" P R E S E N T S":[129]I[178]1[164]8 14 [153]""[166]11)[202](U$,I,9)[202](U$,25[171]I):[129]J[178]0[164]99:[130]J,I 20 [129]I[178]0[164]800:[130]:[158]16384:[129]I[178]1[164]7:F$[178][202]("STOPPOKEPRINT#LISTSYSFOR",I,1):[141]30:[130] 21 [129]I[178]0[164]800:[130]:[153][166]6)"DEF (null)STR$RIGHT$(null)RIGHT$(null)(null) =TANRIGHT$(null)(null)=(null)RIGHT$ RIGHT$(null)RIGHT$(null)(null)STR$RIGHT$ 22 PRINTSPC(6)"[156][213][171][192][179][221][221][221][221] [171][179] [221] [221] [221] [221][221][221][221][199][192][174] 24 [153][166]6)"PRINT#MID$(null) (null)(null)MID$(null)/TANEXP>TAN(null)(null)MID$(null) MID$ASC(null)(null)MID$(null)MID$ASC(null) 26 FORI=0TO800:NEXT:PRINT"[150][ F 1 ] [154]- AUSGABE AUF DEM BILDSCHIRM 28 [153]"DEF[ F 3 ] CONT- AUSGABE AUF DEM DRUCKER 29 PRINT"[150][ F 7 ] [154]- SPIEL LADEN":POKE198,0:GOTO50 30 PRINTLEFT$(D$,9)F$"[183][187][172][146] [183][187][172][146][184][183][183][163][163][163][163] 31 [153]" GETWAITGET GETWAITGETLOG TOANDTOLOGWAITLOG TOANDTOLOGWAITLOG WAITCOS LOG WAITCOSLOG TOANDTOLOGWAIT COSTOANDTOLOGWAIT"; 32 [153]" ABSABSWAIT INTWAITINT SGNWAITSGN SGNWAITSGN SGNWAITSGNSGNWAITSGN SGNWAITSGN SGNWAITSGN ++WAIT LOG"; 33 [153]" THENTHENWAIT FNWAITFN INTWAITINTTOAND INTWAITINTTOAND WAIT INTWAITINT INTWAITINT INTWAITINTTOAND  WAITRNDTO 34 PRINT"  [146]  [146] [161] [164][170][146] [161] [164] [146][190] [161][146][161] [161][146][161] [161] [164][170][146] [188] [164] [146][187]"; 35 PRINT" [181][146][181][182][182][146] [181][146][181] [181][146][181] [180][146][180] [181][146][181] [181][146][181] [181][146][181] [181][182][146]"; 36 PRINT" [182][188][190][146][181] [180][146][180] [180][146][180] [181][146][181] [180][146][180] [180][146][180] [180][146][180] [187] [182][170][146]"; 37 PRINT" [187][172][146] [172] [163][183][163][172][146][172] [146][187] [190][188][146][172] [163][183][163][172][146][172] [146][187][172] [163][183][163][172][146] [187] [163] [146][190]":RETURN 50 GETU$:IFU$="[133]"GOTO250 60 IFU$="[134]"THENPRINTCHR$(14):SYS16516:GOTO490 70 IFU$="[136]"GOTO600 80 GOTO50 90 Z=4:N=0:PRINT""; 100 READU$:IFU$="*"GOTO260 110 N=N+1:IFU$="@"THENPRINT:GOTO130 120 PRINTU$ 130 IFN<19GOTO100 140 GOTO260 175 U=0:GOTO100 215 GOTO170 250 PRINT"[156][147][176]";:S=S+1:FORI=1TO19:PRINT"[192][192]";:NEXT:PRINT"[174]"; 252 PRINT"[221]"SPC(38)"[221]";:PRINT"[173]";:FORI=1TO19:PRINT"[192][192]";:NEXT:PRINT"[189] 254 [129]I[178]0[164]1:[153][200](D$,20[172]I[170]3);:[129]J[178]1[164]20:[153]"TANTAN";:[130]J,I 256 [153][199](14)"CLR/CMDCMDEXP 257 PRINT"[150] [193]NLEITUNG [158]* [214] [197] [210] [204] [201] [197] [211] *[154] [211]EITE:"S"[153]"N$; 258 IFLEN(N$)>0THENPRINT""; 259 T=N:GOTO90 260 PRINTLEFT$(D$,24)" [198]1 [146][158]-[211]TART  [198]7 [146][158]-[215]EITER  [198]8 [158][146]-[204]ADEN 262 [161]O$:[139]O$[178]"INPUT"[167][138] 263 [139]O$[178]"LET"[175]U$[178]"*"[167][138] 264 [139]O$[178]"LET"[137]250 266 [139]O$[178]"RESTORE"[137]600 268 [137]262 290 N[178]0 300 [135]U$:[139]U$[178]"*"[137]380 310 [139]U$[178]"@"[167][152]1:N[178]N[170]1:[137]360 320 [139][201](U$,1)[178]"-"[167][152]1,[200](U$,[195](U$)[171]1);:N[178]N[170]1:[137]340 330 [152]1,U$" ";:N[178]N[170]1 340 [135]U$:[139]U$[178]"@"[167][152]1:[152]1:N[178]N[170]1:[137]360 350 [152]1,U$ 360 [139]N[179]53[137]300 380 [139]N[179]54[167]N[178]N[170]1:[152]1:[137]380 460 [129]I[178]1[164]39:[152]1,"TANTAN";:[130]:[152]1 470 [152]1,"(LEN)OPYRIGHT 1987 BY RIGHT$(null)(null)VAL(null)ATN(null)(null)(null) (null)(null)ASC(null)(null)ATN(null)VAL":[160]1:[139]U$[178]"*"[167][138] 490 S[178]S[170]1:[153][202]("SYSCONTCLRDEFOPEN",6[172][187](1)[170]1,1)"LOADPEEKITTE DIE"S"CMD. (null)EITE EINLEGEN UND EINE 491 PRINT"[212]ASTE DRUECKEN. 500 [151]198,0:[146]198,1:[161]O$:[153]"(null)KAY, ICH DRUCKE.":[159]1,4,10:[160]1 510 [159]1,4,7:[152]1:[152]1,"ATN(null)(null)VALRIGHT$(null)(null)(null)CHR$ FUER"[199](14)" * (null) VAL (null) (null) RIGHT$ VAL (null) *"; 515 [152]1,[199](15)" (null)EITE"S 516 [139]N$[177]""[167]N$[178]N$[170]" " 518 [129]I[178]1[164]39:[152]1,"TANTAN";:[130]:[152]1 520 [152]1:[152]1,N$;:T[178]N[170]1:[139]S[178]1[167][141]700:N[178]9:[129]I[178]1[164]5:[135]U$:[130]:[137]300 530 [137]290 600 [158]16516:[151]56,160:[151]55,0:[153]"LOADSTOPP(null)43,140:P(null)44,65:P(null)16779,0:L(null)"; 610 [153][199](8)[199](142)[199](34)"VERLIES (BOOT)"[199](34)",8 620 PRINT"R[213]:"LEFT$(D$,13)SPC(8)"[158]ETWAS GEDULD BITTE...[144] 630 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[162] 700 [152]1,[199](14)" * * **** **** * *** **** **** 710 PRINT#1," * * * * * * * * * 720 [152]1," * * *** **** * * *** *** 730 PRINT#1," * * * * * * * * * 740 [152]1," * **** * * **** *** **** ****"[199](15):[142] 1000 [131]" * * **** **** * *** **** **** 1010 DATA" * * * * * * * * * 1020 [131]" * * *** **** * * *** *** 1030 DATA" * * * * * * * * * 1040 [131]" * **** * * **** *** **** **** 1050 DATA@,"[215]ILLKOMMEN ZU [214][197][210][204][201][197][211], MEIN [198]REUND. 1060 [131]"(null)VAL(null)(null)RIGHT$VAL(null) IST EIN (null)OLLENSPIELADVENTURE, 1070 DATA"BEI DEM [196]U DURCH UNTERIRDISCHE [204]ABYRIN- 1080 [131]"THE UND CHR$EWOELBE LAUFEN UND GEGEN (null)ON- 1090 DATA"STER UND [196]RACHEN KAEMPFEN MUSST. 1100 [131]@,"STR$ABEI HAST STR$U DIE (null)OEGLICHKEIT, STR$EINE 1110 DATA"[193]USRUESTUNG ZU VERBESSERN, UM DANN GE- 1120 [131]"GEN STAERKERE (null)NGEHEUER ANTRETEN ZU 1130 DATA"KOENNEN.",@,"[196]ABEI FING ALLES SO HARMLOS AN... 1140 [131]@,"STR$U MACHST GERADE EINEN (null)PAZIERGANG IM 1150 DATA"[215]ALD. [196]AS [215]ETTER IST SCHOEN, DIE [211]ONNE 1160 [131]"SCHEINT, DIE (null)OEGEL SINGEN, UND ALLES 1170 DATA"IST IN BESTER [207]RDNUNG. 1180 [131]@,"(null)LOETZLICH GIBT ES EINEN (null)NALL, UND VOR 1190 DATA"[196]IR ERSCHEINT DIE UNHEIMLICHE [199]ESTALT 1200 [131]"EINS DAEMONISCHEN (null)AGIERS. 1210 DATA@,"[196]ER [218]AUBERER STELLT SICH ALS [218]ERBORAX 1220 [131]"VOR UND SAGT, DASS ER STR$ICH MITNEHMEN 1230 DATA"WIRD. [197]R HEBT DIE [200]AND, ES ZISCHT, UND 1240 [131]"STR$EIN PEEKLICK VERSCHWIMMT. 1250 DATA@,"[193]LS DIE [211]ICHT WIEDER KLAR WIRD, HAT 1260 [131]"SICH ALLES VERAENDERT. STR$U BIST IN EINEM 1270 DATA"GANZ ANDEREN [215]ALD. [196]UESTER DROHEND STE- 1280 [131]"HEN URALTE PEEKAEUME DICHT BEIEINANDER, 1290 DATA"UND NUR WENIG [211]ONNENLICHT DURCHDRINGT 1300 [131]"DIE DUNKLEN (null)CHATTEN. 1310 DATA@,"[214]OR [196]IR ERSCHEINT DER [218]AUBERER UND ER- 1320 [131]"KLAERT, DASS STR$U STR$ICH NUN IM ASCINSTERWALD 1330 DATA"BEFINDEST. [193]N DIESEM UNHEIMLICHEN [207]RT 1340 [131]"GIBT ES ETWAS, DASS ER UNBEDINGT BENOE- 1350 DATA"TIGT. [201]N DER [211]PITZE SEINES [218]AUBERSTABES 1360 [131]"IST EIN (null)OCH - DORT FEHLT ETWAS. VALS 1370 DATA"HANDELT SICH DABEI UM EINEN BESONDEREN, 1380 [131]"MAGISCHEN STR$IAMANTEN. (null)IT IHM KOENNTE ER 1390 DATA"ALLE [205]ACHT DER [215]ELT BESITZEN. 1400 [131]@,"STR$OCH DER STR$IAMANT LIEGT IRGENDWO TIEF 1410 DATA"UNTEN IN DEN [199]EWOELBEN DES SCHRECKLI- 1420 [131]"CHEN (null)ERLIES DES (null)ODES,DESSEN VALINGANG 1430 DATA"SICH HINTER [196]IR BEFINDET, UND WIRD VON 1440 [131]"EINEM FUERCHTERLICHEN FEUERSPEIENDEN 1450 DATA"[196]RACHEN BEWACHT.",@,"[214]IELE HAT DER [218]AUBERER SCHON HINUNTER- 1460 [131]"GESCHICKT, UM DEN STR$IAMANTEN ZU HOLEN, 1470 DATA"DOCH KEINER IST JE ZURUECKGEKEHRT. [206]UN 1480 [131]"SOLLST STR$U HINEIN UND ES VERSUCHEN. (null)EI- 1490 DATA"GERST [196]U [196]ICH, SO WIRD ER [196]ICH TOETEN. 1500 [131]"STR$U HAST KEINE ANDERE (null)AHL. LEFT$AENGENDEN","(null)OPFES STIMMST STR$U ZU. 1510 DATA@,"[196]ER [218]AUBERER WARNT [196]ICH NOCH EINMAL, 1520 [131]"IHN NICHT ZU VERAERGERN UND KEINE 1530 DATA"[212]RICKS ZU VERSUCHEN. [196]ANN GIBT ER [196]IR 1540 [131]"EINIGE ATNUSRUESTUNGSGEGENSTAENDE MIT. 1550 DATA@,"[196]U BEKOMMST EINEN MAGISCHEN [211]ACK, IN 1560 [131]"DEM STR$U SO VIEL TRAGEN KANNST, WIE STR$U 1570 DATA"WILLST, NEUN [198]ACKELN, WEIL ES IN DEN 1580 [131]"CHR$AENGEN DER CHR$EWOELBE DUNKEL IST, ZWEI 1590 DATA"[200]EILTRAENKE UND FUENF [200]EILSALBEN FUER 1600 [131]"STR$EINE (null)UNDEN UND EINEN STR$OLCH ALS (null)AFFE. 1610 DATA"[196]ANACH ERKLAERT ER [196]IR DAS [214]ERLIES. 1620 [131]@,"VALS BESTEHT AUS NEUN UEBEREINANDERLIE- 1630 DATA"GENDEN [199]EWOELBEN, JEDES FUER SICH SCHON 1640 [131]"EIN TOEDLICHES (null)ABYRINTH. RIGHT$N JEDEM CHR$E- 1650 DATA"WOELBE GIBT ES [203]ERKERKAMMERN. [196]ARIN BE- 1660 [131]"FINDET SICH IMMER EINE (null)CHATZTRUHE, IN 1670 DATA"DER [199]OLD, [215]AFFEN, [218]AUBERSPRUECHE, [193]US- 1680 [131]"RUESTUNGSGEGENSTAENDE ABER AUCH ASCALLEN 1690 DATA"VERSTECKT SEIN KOENNEN. [196]OCH JEDER [203]ER- 1700 [131]"KER WIRD VON EINEM DER VIELEN SCHRECK- 1710 DATA"LICHEN [205]ONSTER BEWACHT, DIE IM [214]ERLIES 1720 [131]"HAUSEN. (null)ENN STR$U DEN (null)CHATZ WILLST ODER 1730 DATA"AUCH NUR DEN [203]ERKER PASSIEREN MOECH- 1740 [131]"TEST, MUSST STR$U DAS (null)NGEHEUER ERST IM 1750 DATA"[203]AMPF BESIEGEN.",@,"[197]S GIBT AUCH GROSSE [200]ALLEN AN WICHTIGEN 1760 [131]"(null)TELLEN IN DEN CHR$EWOELBEN. (null)IE ENTHALTEN 1770 DATA"KEINE [211]CHAETZE, DOCH IMMER TREIBT SICH 1780 [131]"DORT EIN (null)ONSTER HERUM. STR$U MUSST HAEU- 1790 DATA"FIG DURCH [200]ALLEN, WEIL ES OFT KEINEN 1800 [131]"ANDEREN (null)EG GIBT.",@,"LEFT$ALLEN UND (null)ERKERKAMMERN HABEN IHRE EI- 1810 DATA"GENE [194]ELEUCHTUNG, WAEHREND ES IN DEN 1820 [131]"CHR$AENGEN DUNKEL IST. (null)ENN STR$U ASCACKELN 1830 DATA"SPAREN WILLST, LOESCHE SIE VOR [194]ETRETEN 1840 [131]"EINES (null)AUMES.",@,"MID$E TIEFER STR$U DIE (null)REPPEN HINUNTER- 1850 DATA"STEIGST, DESTO GEFAEHRLICHER WERDEN DIE 1860 [131]"(null)NGEHEUER - BIS STR$U AUF DEN FURCHTBAREN 1870 DATA"[196]RACHEN STOESST. [196]ARUM RAET [196]IR DER 1880 [131]"(null)AUBERER, SOLANGE STR$U DER CHR$EFAHR NOCH 1890 DATA"GEWACHSEN BIST, IN JEDEM [199]EWOELBE [196]EINE 1900 [131]"ATNUSRUESTUNG ZU VERBESSERN UND STR$EINE 1910 DATA"[203]AMPFERFAHRUNG ZU VERGROESSERN, BIS [196]U 1920 [131]"SCHLIESSLICH IN DER (null)AGE BIST, GEGEN 1930 DATA"DEN [196]RACHEN ANTRETEN ZU KOENNEN. [215]ENN 1940 [131]"STR$U IHN BESIEGT HAST, SOLLST STR$U WIEDER 1950 DATA"NACH DRAUSSEN KOMMEN UND DEM [218]AUBERER 1960 [131]"DEN STR$IAMANTEN GEBEN. STR$ANN WUERDE ER 1970 DATA"[196]ICH FREIGEBEN UND BELOHNEN. 1980 [131]@,"(ATNNMERKUNG DES ATNUTORS: STR$ER (null)AUBERER 1990 DATA"[218]ERBORAX IST DURCH UND DURCH BOESE. [197]R 2000 [131]"DENKT NUR AN (null)ELTHERRSCHAFT - ABER 2010 DATA"NICHT AN SEINE [214]ERSPRECHEN. [196]ARUM TRAUE 2020 [131]"IHM NICHT. (null)ERSUCHE ABER NICHT, STR$ICH 2030 DATA"IHM ZU WIDERSETZEN, ER WUERDE [196]ICH SO- 2040 [131]"FORT TOETEN. ATNUCH IST ER SEHR UNGEDUL- 2050 DATA"DIG UND JAEHZORNIG - ES IST BESSER, IHN 2060 [131]"NICHT ZU LANGE WARTEN ZU LASSEN. (null)OLL 2070 DATA"SO EINER DIE [215]ELTHERRSCHAFT ERHALTEN? 2080 [131]"STR$OCH ER IST MAECHTIG, UND ES GIBT TIEF 2090 DATA"UNTEN NUR EINE EINZIGE [215]AFFE, DIE IHN 2100 [131]"VERNICHTEN KANN...)",@," (null)ASTENFUNKTIONEN: 2200 DATA@,"[214] - [214]ORWAERTS GEHEN 2210 [131]@,"(null) - (null)UECKWAERTS GEHEN 2220 DATA@,"< - [196]REHUNG NACH LINKS 2230 [131]@,"> - STR$REHUNG NACH RECHTS 2240 DATA@,"[212] - [196]URCH EINE [212]UER GEHEN 2250 [131]@,"(null) - (null)AFFE ZIEHEN/WEGSTECKEN 2260 DATA@,"[193] - [199]EGNER ANGREIFEN 2270 [131]@,"(null) - (null)CHATZTRUHE OEFFNEN UND RIGHT$NHALT"," " 2280 [131]" NEHMEN, WENN ER BRAUCHBAR IST. 2290 DATA@,"[197] - [198]ACKEL ANZUENDEN 2300 [131]@,"(null) - ASCACKEL LOESCHEN 2310 DATA@,"[213] - [193]UF DIE [213]HR SEHEN, WENN MAN SIE HAT 2320 [131]@,"(null) - RIGHT$N DEN MAGISCHEN (null)RISTALL SEHEN. VALR"," " 2330 [131]" ZEIGT, WELCHES (null)ONSTER HINTER EINER"," " 2340 [131]" (null)UER LAUERT. 2350 DATA@,"[208] - [205]AGISCHES [208]ENDEL BESCHWOEREN. [215]ENN"," " 2360 DATA" MAN ES UEBER EINER [211]CHATZTRUHE"," " 2370 DATA" BESCHWOERT, ZEIGT ES EINE [198]ALLE AN. 2380 [131]@,"LEFT$ - LEFT$EILTRANK TRINKEN. (null)TELLT DIE"," " 2390 [131]" (null)EBENSENERGIE WIEDER VOLL HER. 2400 DATA@,"[211]HIFT/[200] - [200]EILSALBE AUFTRAGEN. [197]RHOEHT"," " 2410 DATA" DIE [204]EBENSENERGIE UM 25 % 2420 [131]@,"ASC - ASCEUERBALL WERFEN 2430 DATA@,"[194] - [194]LITZ SCHLEUDERN 2440 [131]@,"(null) - (null)CHUTZZAUBER AKTIVIEREN 2450 DATA@,"[218] - [215]AFFENZAUBER AKTIVIEREN 2460 [131]@,"MID$ - (null)AEHMUNGSZAUBER AKTIVIEREN 2470 DATA@,"[205] - [205]EGABLAST ABFEUERN 2480 [131]@,"STR$ - STR$IAMANTEN UEBERGEBEN 2490 DATA@,"[201] - [201]NVENTUR DER [193]USRUESTUNG 2500 [131]@,"_ - (null)EIT ANHALTEN ((null)PIELPAUSE) 2510 DATA@,"[198]8 - [211]ELBSTMORD (BEI GEZOGENER [215]AFFE) 2600 [131]@,"PEEKEIM (null)ERKERMEISTER KANNST STR$U BESTIMMEN, 2610 DATA"OB EIN NEUES [204]ABYRINTH ERSTELLT WERDEN 2620 [131]"SOLL (CA. 5 (null)INUTEN STR$AUER), ODER OB STR$U 2630 DATA"DAS BENUTZEN WILLST, WELCHES GERADE IM 2640 [131]"LENOMPUTER GESPEICHERT IST. STR$ANN KANNST 2650 DATA"[196]U ZWISCHEN FUENF [211]CHWIERIGKEITSSTUFEN 2660 [131]"WAEHLEN, DIE DIE (null)AEMPFE BEEINFLUSSEN. 3000 DATA@,"[214]IEL [211]PASS BEIM [211]PIELEN UND EINEN GUTEN","[203]AMPF WUENSCHT 3010 [131]@,"RIGHT$ (null) (null) VAL (null) ATN (null) (null) (null)"," "," (null) (null) ASC (null) (null) ATN (null) VAL ",@,*